home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / source / contrib / koma-script / scrdoc.cls < prev    next >
Text File  |  1995-03-09  |  5KB  |  130 lines
  1. %% 
  2. %% This is file `scrdoc.cls', generated 
  3. %% on <1995/3/4> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% komascr.dtx  (with options: `scrdoc')
  8. %% 
  9. %% Copyright 1994 Markus Kohm, Frank Neukam and the individual authors. 
  10. %% All rights reserved. For further copyright information see the file 
  11. %% readme.txt or liesmich.txt, and any other copyright indicated in this 
  12. %% file. 
  13. %% 
  14. %% This file is part of the LaTeX2e KOMA-Script-bundle. 
  15. %% ---------------------------------------------------- 
  16. %% 
  17. %% The KOMA-Script-bundle bases on the Script-family created by 
  18. %% Frank Neukam 1993 and the standard documents classes created 
  19. %% by the LaTeX3-Team 1994. 
  20. %% ------------------------------------------------------------- 
  21. %% 
  22. %% This system is distributed in the hope that it will be useful, 
  23. %% but WITHOUT ANY WARRANTY; without even the implied warranty of 
  24. %% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
  25. %% 
  26. %% 
  27. %% IMPORTANT NOTICE: 
  28. %% 
  29. %% For error reports in case of UNCHANGED versions see documentation. 
  30. %% 
  31. %% Please do not request updates from us directly. Distribution is 
  32. %% done through Mail-Servers, Mailboxes and TeX organizations. 
  33. %% 
  34. %% You are not allowed to change this file. 
  35. %% 
  36. %% You are allowed to distribute this file under the condition that 
  37. %% it is distributed together with all files mentioned in readme.txt 
  38. %% and liesmich.txt. 
  39. %% 
  40. %% If you receive only some of these files from someone, complain! 
  41. %% 
  42. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  43. %% ALLOWED to take money for the distribution or use of either this 
  44. %% file or a changed version, except for a nominal charge for copying 
  45. %% etc. 
  46. %% 
  47. \NeedsTeXFormat{LaTeX2e}[1994/06/01]
  48. \ProvidesClass{scrdoc}
  49.               [1994/12/31 v2.1b LaTeX2e KOMA
  50.                document class]
  51. \DeclareOption*{%
  52.     \PassOptionsToClass  {\CurrentOption}{scrreprt}}
  53. \InputIfFileExists{ltxdoc.cfg}
  54.            {\typeout{*************************************^^J%
  55.                      * Local config file ltxdoc.cfg used^^J%
  56.                      *************************************}}
  57.            {}
  58. \ProcessOptions
  59. \LoadClass{scrreprt}
  60. \RequirePackage{doc}
  61. \AtBeginDocument{\MakeShortVerb{\|}}
  62. \CodelineNumbered
  63. \DisableCrossrefs
  64. \DeclareFontShape{OT1}{cmtt}{bx}{n}
  65.   {<->ssub * cmtt/m/n}{}
  66. \setcounter{StandardModuleDepth}{1}
  67. \def\cmd#1{\cs{\expandafter\cmd@to@cs\string#1}}
  68. \def\cmd@to@cs#1#2{\char\number`#2\relax}
  69. \DeclareRobustCommand\cs[1]{\texttt{\char`\\#1}}
  70. \@addtoreset{CodelineNo}{part}
  71. \def\partname{File}
  72. \def\DocInclude#1{%
  73.   \relax
  74.   \clearpage
  75.   \docincludeaux
  76.   \def\currentfile{#1.dtx}%
  77.   \ifnum\@auxout=\@partaux
  78.     \@latexerr{\string\include\space cannot be nested}\@eha
  79.   \else \@docinclude#1 \fi}
  80. \def\@docinclude#1 {\clearpage
  81. \if@filesw \immediate\write\@mainaux{\string\@input{#1.aux}}\fi
  82. \@tempswatrue\if@partsw \@tempswafalse\edef\@tempb{#1}\@for
  83. \@tempa:=\@partlist\do{\ifx\@tempa\@tempb\@tempswatrue\fi}\fi
  84. \if@tempswa \let\@auxout\@partaux \if@filesw
  85. \immediate\openout\@partaux #1.aux
  86. \immediate\write\@partaux{\relax}\fi
  87. \part{#1.dtx}%
  88.   {\let\ttfamily\relax
  89.   \xdef\filekey{\filekey, \thepart={\ttfamily\currentfile}}}%
  90. \DocInput{#1.dtx}%
  91. \clearpage
  92. \@writeckpt{#1}\if@filesw \immediate\closeout\@partaux \fi
  93. \else\@nameuse{cp@#1}\fi\let\@auxout\@mainaux}
  94. \gdef\codeline@wrindex#1{\if@filesw
  95.         \immediate\write\@indexfile
  96.             {\string\indexentry{#1}%
  97.             {\filesep\number\c@CodelineNo}}\fi}%
  98. \let\filesep\@empty
  99. \def\aalph#1{\@aalph{\csname c@#1\endcsname}}
  100. \def\@aalph#1{%
  101.   \ifcase#1\or a\or b\or c\or d\or e\or f\or g\or h\or i\or
  102.          j\or k\or l\or m\or n\or o\or p\or q\or r\or s\or
  103.          t\or u\or v\or w\or x\or y\or z\or A\or B\or C\or
  104.          D\or E\or F\or G\or H\or I\or J\or K\or L\or M\or
  105.          N\or O\or P\or Q\or R\or S\or T\or U\or V\or W\or
  106.          X\or Y\or Z\else\@ctrerr\fi}
  107. \def\docincludeaux{%
  108.   \def\thepart{\aalph{part}}\def\filesep{\thepart-}%
  109.   \let\filekey\@gobble
  110.   \g@addto@macro\index@prologue{%
  111.     \gdef\@oddfoot{\parbox{\textwidth}{\strut\footnotesize
  112.        \raggedright{\bfseries File Key:} \filekey}}%
  113.     \let\@evenfoot\@oddfoot}%
  114.   \global\let\docincludeaux\relax
  115.  \gdef\@oddfoot{%
  116.    \expandafter\ifx\csname ver@\currentfile\endcsname\relax
  117.     File \thepart: {\ttfamily\currentfile} %
  118.    \else
  119.     \GetFileInfo{\currentfile}%
  120.     File \thepart: {\ttfamily\filename} %
  121.     Date: \filedate\ %
  122.     Version \fileversion
  123.     \fi
  124.     \hfill\thepage}%
  125.  \let\@evenfoot\@oddfoot}%
  126. \def\task#1#2{}
  127. \endinput
  128. %% 
  129. %% End of file `scrdoc.cls'.
  130.